home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Plus 1995 #5 & #6
/
Amiga Plus CD - 1995 - No. 5 and 6.iso
/
pd
/
serien
/
purity
/
nr.43
/
flushcx
/
source
/
commodities.lib
next >
Wrap
Text File
|
1995-01-07
|
2KB
|
60 lines
{$if not def COMMODITIES_LIB_H} CONST COMMODITIES_LIB_H=0;
{ *****************************************************************
** KickPascal-Include-Datei "commodities.lib" zu Kickstart 3.0 **
***************************************************************** }
{$if not def EXEC_NODES_H;incl "exec/nodes.h";endif}
{$if not def LIBRARIES_COMMODITIES_H;incl "libraries/commodities.h";endif}
{$if not def DEVICES_INPUTEVENT_H;incl "devices/inputevent.h";endif}
{$if not def DEVICES_KEYMAP_H;incl "devices/keymap.h";endif}
VAR CxBase : Ptr;
LIBRARY CxBase :
{ **** Routinen ab V36 / Release 2.0 **** }
-30 : FUNCTION CreateCxObj(D0:Long; A0,A1:LongInt): p_CxObj;
-36 : FUNCTION CxBroker(A0:p_NewBroker; D0:Ptr): p_CxObj;
-42 : FUNCTION ActivateCxObj(A0:p_CxObj; D0:LongInt): LongInt;
-48 : PROCEDURE DeleteCxObj(A0:p_CxObj);
-54 : PROCEDURE DeleteCxObjAll(A0:p_CxObj);
-60 : FUNCTION CxObjType(A0:p_CxObj): Long;
-66 : FUNCTION CxObjError(A0:p_CxObj): LongInt;
-72 : PROCEDURE ClearCxObjError(A0:p_CxObj);
-78 : PROCEDURE SetCxObjPri(A0:p_CxObj; D0:LongInt);
-84 : PROCEDURE AttachCxObj(A0,A1:p_CxObj);
-90 : PROCEDURE EnqueueCxObj(A0,A1:p_CxObj);
-96 : PROCEDURE InsertCxObj(A0,A1,A2:p_CxObj);
-102 : PROCEDURE RemoveCxObj(A0:p_CxObj);
{ *** private Routine *** }
-114 : PROCEDURE SetTranslate(A0:p_CxObj; A1:p_IX);
-120 : PROCEDURE SetFilter(A0:p_CxObj; A1:p_IX);
-126 : PROCEDURE SetFilterIX(A0:p_CxObj; A1:p_IX);
-132 : FUNCTION ParseIX(A0:Ptr; A1:p_IX): LongInt;
-138 : FUNCTION CxMsgType(A0:p_CxMsg): Long;
-144 : FUNCTION CxMsgData(A0:p_CxMsg): Byte;
-150 : FUNCTION CxMsgID(A0:p_CxMsg): LongInt;
-156 : PROCEDURE DivertCxMsg(A0:p_CxMsg; A1,A2:p_CxObj);
-162 : PROCEDURE RouteCxMsg(A0:p_CxMsg; A1:p_CxObj);
-168 : PROCEDURE DisposeCxMsg(A0:p_CxMsg);
-174 : FUNCTION InvertKeyMap(D0:Long; A0:p_InputEvent; A1:p_KeyMap): Long;
-180 : PROCEDURE AddIEvents(A0:p_InputEvent);
{ *** 3 private Routinen *** }
{ ******************************************************************* }
{ Hier kommt die Ergänzung, done by Janosh/NPL }
{ ********************************************************************}
-186 : FUNCTION CopyBrokerList(A0:p_List):long;
-192 : FUNCTION FreeBrokerList(A0:p_List):long;
-198 : PROCEDURE BrokerCommand(A0:str;D0:long);
{ **** Rountinen ab V38 / Release 2.1 **** }
-204 : FUNCTION MatchIX(A0:p_InputEvent; A1:p_IX): Boolean;
{ *** 5 private Routinen *** }
END;
{$endif}